(x_sync): New function.

diff --git a/src/xfns.c b/src/xfns.c
index d42d79dd317d347a86e6dc2db2cdab0b29f8c8ac..035d20c1d01f9ab9471905042d074846c80c84df 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3724,6 +3724,14 @@ easier.")
   return Qnil;
 }
 
+/* Wait for responses to all X commands issued so far for FRAME.  */
+
+void
+x_sync (frame)
+     Lisp_Object frame;
+{
+  XSync (x_current_display, False);
+}
 \f
 syms_of_xfns ()
 {